home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / DEF / Midi / Port / port-channel < prev   
Text File  |  1998-10-23  |  885b  |  28 lines
  1. port-channel port channel
  2.  
  3. This is an alternate way to set up port and channel as in the example. It recognizes :modem and :printer keywords.
  4.  
  5. (port-channel :modem 1) --> ((1))
  6. (port-channel :printer 1) --> ((17))
  7. (port-channel 2 1) --> ((33))
  8.  
  9. (def-section intro
  10.   default ; 24 bars
  11.     zone '(1/1 1/1 1/1 1/1  1/1 1/1 1/1 1/1
  12.            1/1 1/1 1/1 1/1  1/1 1/1 1/1 1/1
  13.            1/1 1/1 1/1 1/1  1/1 1/1 1/1 1/1)
  14.     tempo '(58) 
  15.     length '(1/16)
  16.     velocity '(64 55 75 37 85)
  17.   righthand
  18.     channel (port-channel :printer 1) 
  19.     tonality (symbol-repeat 2 (activate-tonality (melodic-minor c 5) (hirajoshi d 5) (melodic-minor g 5)))
  20.     symbol melody-1
  21.     length '(1/16 1/16 1/32 1/32 1/32 1/32)
  22.   lefthand
  23.     channel (port-channel :printer 2)
  24.     tonality (symbol-repeat 2 (activate-tonality (melodic-minor c 3) (hirajoshi d 3) (melodic-minor g 3)))
  25.     symbol melody-2
  26. )
  27.  
  28.